home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / utilities / comsuite 95 / COMMSUIT / GENIE.C_ / GENIE.C
Encoding:
C/C++ Source or Header  |  1993-09-13  |  1.8 KB  |  62 lines
  1. /* This program genie.c created by Delrina and assigned to the Genie session*/
  2. /* runs an automated logon script for connecting to Genie.                  */
  3.  
  4. /*    $Revision:   1.2  $  */
  5. /*    $Date:   27 Oct 1995 14:42:44  $  */
  6.  
  7. /* Define main function, which is always the starting point of C programs. */
  8. /* (The term "void" indicates that the function returns no value.) */
  9. void main()
  10.     {
  11.     /* Declare variables */
  12.     long ScriptHandle;
  13.     int ReturnValue;
  14.     char Buffer[128], LogLine[128];
  15.  
  16.     /* Initialize variables */
  17.     ReturnValue = 0;
  18.     ScriptHandle = 0;
  19.  
  20.     /* Establish a link between this script program and Delrina WinComm PRO */
  21.     ScriptHandle = dcInitialize(0,0,0,0);
  22.  
  23.     /* Exit if intialization of link with Delrina WinComm PRO failed */
  24.     if (ScriptHandle == 0) exit();
  25.         
  26.     /* Type three 'h's then <enter> */
  27.     if (ReturnValue >= 0)
  28.         ReturnValue = dcTypeText(ScriptHandle, 0, "hhh\r");
  29.  
  30.     /* Wait for a prompt */
  31.     if (ReturnValue >= 0)
  32.         ReturnValue = dcWaitForPrompt(ScriptHandle, 1, "U#=", 300L, 32000L);
  33.  
  34.     /* Get User ID value from Runtime Values dialog box */
  35.     if (ReturnValue >= 0)
  36.         ReturnValue = dcGetRuntimeValue(ScriptHandle, 2, 1, 128, Buffer);
  37.  
  38.     /* Add value to logline */
  39.     if (ReturnValue >= 0)
  40.         strncat(LogLine, Buffer, strlen(Buffer)-1);
  41.  
  42.     /* Get Password value from Runtime Values dialog box */
  43.     if (ReturnValue >= 0)
  44.         ReturnValue = dcGetRuntimeValue(ScriptHandle, 3, 1, 128, Buffer);
  45.  
  46.     /* Add a comma, then the password value to the logline */
  47.     if (ReturnValue >= 0)
  48.         {
  49.         strcat(LogLine, ",");
  50.         strcat(LogLine, Buffer);
  51.         }
  52.  
  53.     /* Type the logline */
  54.     if (ReturnValue >= 0)
  55.         ReturnValue = dcTypeText(ScriptHandle, 0, LogLine);
  56.  
  57.     /* Terminate link between Delrina WinComm PRO and script program */
  58.     dcTerminate(ScriptHandle, 0);
  59.     }
  60.  
  61.  
  62.